10 PRINTCHR$(147):REM CLEAR SCREEN
20 POKE53280,6:REM BORDER TO MATCH SCREEN
30 POKE646,1:REM PRINT EVERYTHING WHITE
40 X=16:DIMC(X),E$(X),M$(X)
50 FORN=1TOX:READC(N),E$(N),M$(N):NEXT
60 PRINT"(1) IN TO KM    (17) KM TO IN
70 [153]"(2) IN TO M     (18) M TO IN
80 PRINT"(3) IN TO CM    (19) CM TO IN
90 [153]"(4) IN TO MM    (20) MM TO IN
100 PRINT"(5) FT TO KM    (21) KM TO FT
110 [153]"(6) FT TO M     (22) M TO FT
120 PRINT"(7) FT TO CM    (23) CM TO FT
130 [153]"(8) FT TO MM    (24) MM TO FT
140 PRINT"(9) YD TO KM    (25) KM TO YD
150 [153]"(10) YD TO M    (26) M TO YD
160 PRINT"(11) YD TO CM   (27) CM TO YD
170 [153]"(12) YD TO MM   (28) MM TO YD
180 PRINT"(13) MI TO KM   (29) KM TO MI
190 [153]"(14) MI TO M    (30) M TO MI
200 PRINT"(15) MI TO CM   (31) CM TO MI
210 [153]"(16) MI TO MM   (32) MM TO MI
220 INPUT"WHICH NUMBER";N
230 IFN<1THENPRINT"[145][145]":GOTO220
240 IFN>32THENPRINT"[145][145]":GOTO220
250 IFN>16THEN290
260 PRINT"HOW MANY "E$(N);
270 INPUTQ:A=Q*C(N)
280 PRINT:PRINTQ;E$(N)" ="A;M$(N):END
290 PRINT"QUANTITY OF "M$(N-X);
300 INPUTQ:A=Q*1/(C(N-X))
310 PRINT:PRINTQ;M$(N-X)" ="A;E$(N-X):END
320 DATA.0000254,IN,KM,.0254,IN,M,2.54,IN,CM,25.4,IN,MM
330 DATA.0003048,FT,KM,.3048,FT,M,30.48,FT,CM,304.8,FT,MM
340 DATA.0009144,YD,KM,.9144,YD,M,91.44,YD,CM,914.4,YD,MM
350 DATA1.609344,MI,KM,1609.344,MI,M,160934.4,MI,CM,1609344,MI,MM